Public Class frm_step_3

    Private Sub cmdPrevious_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdPrevious.Click
        show_form(2)
        Me.Close()
    End Sub

    Private Sub cmdNext_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdNext.Click

        'oJL.PAR_LZC_d_2 = txtLZCd2.Text
        'oJL.PAR_RZC_d_2 = txtRZCd2.Text

        'oJL.step_3()
        If Me.txt_BZ_Dis.Text <> oJL.GetExp("BZ_Dis") Then

            oJL.SetExp("BZ_Count", "1")
            oJL.update()

            oJL.SetExp("BZ_Dis", Me.txt_BZ_Dis.Text)
            oJL.update()

            oJL.SetExp("BZ_Count", Me.txt_BZ_Count.Text)
            oJL.update()

            oJL.SetExp("BZ_RPos", Me.txt_BZ_RPos.Text)
            oJL.update()
        Else
            oJL.SetExp("BZ_Count", Me.txt_BZ_Count.Text)
            oJL.update()
        End If

        show_form(4)
        Me.Close()

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdCancel.Click
        Me.Close()
    End Sub

    Private Sub frm_step_3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Left = 50
        Me.Top = 50

        Me.Show()

        'Me.txtLZCd2.Text = oJL.GetExp("LZC_d_2")
        'Me.txtRZCd2.Text = oJL.GetExp("RZC_d_2")

        Me.txt_BZ_Count.Text = oJL.GetExp("BZ_Count")
        Me.txt_BZ_Dis.Text = oJL.GetExp("BZ_Dis")
        Me.txt_BZ_RPos.Text = oJL.GetExp("BZ_RPos")


        oJL.set_view()

    End Sub
End Class